Enlace al codigo fuente

imagen ilustrativa


White fronted capuchin monkey by Berend Leupen

Preparativos

# Carga de Paquetes
library(dplyr)
library(sf)
library(DT)
library(plotly)
library(leaflet)
library(tidyverse)
library(raster)
# Carga de Datos
# Registros de presencia de los primates
primates_doc <-
  st_read(
    "C:/Users/User/Desktop/UNIVERSIDAD/GEOGRAFIA/4) I- 2021 (semestre III)/Procesamiento de Datos Geograficos/tareas/05 Tarea 03 (Primates)/Proyecto_Primates/Proyecto_Primates/primates-cr-registros.csv",
    options = c(
      "X_POSSIBLE_NAMES=decimalLongitude",
      "Y_POSSIBLE_NAMES=decimalLatitude"
    ),
    quiet = TRUE
  )

# Asignación de CRS
st_crs(primates_doc) = 4326

#Cargando tabla de cantones
# Capa geespacial de cantones
cantones <-
  st_read(
    "https://raw.githubusercontent.com/gf0604-procesamientodatosgeograficos/2021i-datos/main/ign/delimitacion-territorial-administrativa/cr_cantones_simp_wgs84.geojson",
    quiet = TRUE
  )
# Cruce espacial con la tabla de cantones, para obtener el nombre del cantón
primates_doc <- 
  primates_doc %>%
  st_join(cantones["canton"])

Introducción

En Costa Rica existen cuatro especies de monos: Congo o Aullador, Carablanca, Tití o Ardilla y Araña o Colorado. Sin embargo, los biólogos advierten que urgen estrategias de conservación para seguir disfrutando de estos animales, claves para la industria turística. En términos económicos, los monos son una de las principales atracciones de los parques nacionales Manuel Antonio y Cahuita. Los turistas extranjeros viajan cientos de kilómetros a Costa Rica para observarlos, y los nacionales también se sienten cautivados por estos primates. En contraparte, la interacción con los humanos ha derivado -según los científicos- en una serie de situaciones perjudiciales para los monos, cuyas poblaciones se han visto diezmadas tanto en su abundancia como en su distribución. La pérdida y fragmentación del hábitat, la urbanización y la tala de los bosques ponen en peligro la conservación de estos mamíferos. Se han hecho proyecciones sobre la cantidad existente, ya que es imposible contar con un censo nacional. En 2009, se calculó en 104 000 la cantidad de especímenes restantes de las cuatro especies que habitan el territorio nacional. La fragmentación del hábitat causa una disminución en la cantidad de monos y aumenta la probabilidad de endogamia, es decir, la posibilidad de que un individuo se cruce con otros emparentados con él y se produzca una combinación de los mismos genes. Por otro lado, con la fragmentación de los bosques también se pierde la conectividad entre las áreas, aspecto fundamental para el desplazamiento de las tropas. “La deforestación, con o sin permiso, sigue siendo un problema, porque le cortamos el movimiento a los monos”, advirtió el investigador. Por todo lo anterio, una posible solución es la creación de corredores biológicos y la protección de las cuencas hidrográficas para establecer la conectividad necesaria, lo que favorecería el crecimiento de las poblaciones y que así se produzcan cruces de individuos entre distintas tropas, según expresó Sánchez. Finalmente, Wong insiste en fomentar la educación ambiental para que la gente dé mayor importancia a la conservación de los monos y tome conciencia acerca de los servicios ambientales que brindan, entre estos el control de insectos y la dispersión de semilla y su valor para el turismo. (Universidad de Costa Rica,La realidad de los monos).

Tabla de Registros de presencia

Agregando una capa por cada tipo de mono

# Creando Capa mono congo
mo_congo <-
  primates_doc %>%
  filter(species == "Alouatta palliata")
# Creando Capa mono ardilla
mo_ardilla <-
  primates_doc %>%
  filter(species == "Saimiri oerstedii")
# Creando Capa mono araña
mo_arana <-
  primates_doc %>%
  filter(species == "Ateles geoffroyi")
# Creando Capa mono carablanca
mo_carablanca <-
  primates_doc %>%
  filter(species == "Cebus capucinus")

Gráfico

Preparando datos para el mapa

#Agregando capa Raster
alt <- getData(
  "worldclim",
  var = "alt",
  res = .5,
  lon = -84,
  lat = 10
)
# Recortando la capa de altitud para que se ajuste a los límites aproximados de Costa Rica.
altitud <- crop(alt, extent(-86, -82.3, 8, 11.3))

palet <- colorNumeric(
  c("#FF80ED", "#AC25E2", "#800080"),
  values(altitud)
)

Mapa de distribución